home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / being there / Issues & Ideas / Anonymous remailers / Remailers / morpheus-remailer-hack Folder / Remailer-Status-Check.pl < prev    next >
Perl Script  |  1993-06-29  |  736b  |  35 lines
  1. #!/usr/bin/perl
  2.  
  3. # I'm alive!
  4.  
  5. while (<>) {
  6.     s/[ \t\r]*$// ;
  7.         last if /^$/ ;
  8.         if (/^Remailer-Status-Check:/) {
  9.                 chop ;
  10.                 s/^.*:// ;
  11.                 $mid = $_ ;
  12.         }
  13.         if (/^From:/) {
  14.                 chop ;
  15.                 s/^.*:// ;
  16.                 $addressee = $_ ;
  17.         }
  18. }
  19.  
  20. $retaddr = " " . $ENV{'LOGNAME'} . "@" . $ENV{'VISIBLE_NAME'};
  21.  
  22. #open( OUTPUT, ">bar" ) || die "Cannot open 'bar'." ;
  23. open( OUTPUT, "| /usr/lib/sendmail " . $addressee ) ;
  24. select( OUTPUT ) ;
  25.  
  26. print "To:" . $addressee . "\n" ;
  27. print "From:" . $retaddr . "\n" ;
  28. print "Remailer-Status-Alive:" . $mid . "\n";
  29.  
  30. print "\n";
  31.  
  32. print "Remailer alive request by" . $addressee . " answered\n\n";
  33.  
  34. close(OUTPUT);
  35.